---
title: "ADD A TITLE"
output:
flexdashboard::flex_dashboard:
theme:
version: 4
bootswatch: pulse
source_code: embed
html_document:
df_print: paged
editor_options:
chunk_output_type: console
---
```{r setup, include=FALSE}
library(flexdashboard)
library(tidyverse)
data_to_explore <- read_csv("data/data_to_explore.csv")
data_to_explore <- data_to_explore |>
mutate(final_grade = proportion_earned*100)|>
mutate(subject = recode(subject,
"AnPhA" = "Anatomy",
"BioA" = "Biology",
"FrScA" = "Forensics",
"OcnA" = "Oceanography",
"PhysA" = "Physics"))
```
## Inputs {.sidebar}
This is where you would write up something that you want the stakeholders to know. What is the overall findings?
Column {data-width=600}
-----------------------------------------------------------------------
### CHART A
```{r}
```
Column {data-width=350}
-----------------------------------------------------------------------
### CHART B
```{r}
```
### CHART C
```{r}
```